% V20210224 - 5.2 GW_ADD_BAR_LBUTTON$ [2]

INCLUDE "GW.bas"

MainPage = GW_NEW_PAGE()

Center$ = GW_ADD_BAR_TITLE$("My Program")

GW_USE_THEME_CUSTO_ONCE("notext icon=power")
LeftButton$ = GW_ADD_BAR_LBUTTON$(">BACK")

GW_ADD_TITLEBAR(MainPage, LeftButton$ + Center$)

GW_RENDER(MainPage)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END